I got it! thank erel!
Dim start As Long = DateTime.Now
'Dim targetDate As Long = DateTime.DateParse("08/31/2013")
Dim dateTarget As Long = DateTime.Add(start,0,0,7)
Dim PP As Period
PP.Days = 1
' Do While (start <= targetDate)
Do While (start < dateTarget)
Log(DateTime.date(start))
start = DateUtils.AddPeriod(start, PP)
Loop