A family of Microsoft spreadsheet software with tools for analyzing, charting, and communicating data.
If, by having a date means not empty:
=SUMPRODUCT((MOD(ROW(D7:D1000)-6,4)=1)*(D7:D1000<>""))
If, the cells could have text and not have a date:
=SUMPRODUCT((MOD(ROW(D7:D1000)-6,4)=1)*(D7:D1000<>"")*NOT(ISERROR(WEEKDAY(D7:D1000))))