Skip row in For...Next loop to automate e-mails

Hi,

Sub Check_Tasks()

    Dim lastRow As Long, r As Long

    With Sheets("todo")
        lastRow = Cells(Rows.Count, "B").End(xlUp).Row
        For r = 5 To lastRow
            If LCase(Cells(r, "I").Value) <> "yes" Then    ' 'Skips when col I doesn't contain a 'Yes'
                If Cells(r, "E").Value = Date Then Send_Outlook_Email "Task Reminder", .Cells(r, "H").Value, .Cells(r, "G").Value
                Cells(r, "I").Value = "Yes"
            End If
        Next r
    End With

End Sub