Bucle entre fechas

Como realizar un bucle entre un rango de fechas.

Dim FechaInicio As DateTime = New DateTime(Now.Year, Now.Month, Now.Day)

//En este caso, a la fecha actual le sumamos 6 dias, pero pueden poner en FechaFin
//la fecha que quieran, en el ejemplo sumo 6 dias, pero para el caso da lo mismo.

Dim SumaFecha As Date = DateAdd(DateInterval.Day, 6, Now)

Dim FechaFin As DateTime = New DateTime(SumaFecha.Year, SumaFecha.Month, SumaFecha.Day)
Dim FechaTemp As DateTime = FechaInicio

While (FechaTemp <= FechaFin)        

    Algo_Para_Procesar(FechaTemp)
    Console.WriteLine(FechaTemp.ToShortDateString)
    FechaTemp = FechaTemp.AddDays(1)

End While