forse conviene che ti trovi l'intervallo in giorno con datediff e poi con quello imposti il ciclo

codice:
intervallo=DateDiff("d", DataInizio, DataFine)
For i=1 To intervallo
   miaData=DateAdd("d", i, DataInizio)
Next