Inserting Blank Rows after Specific Dates

I shall attempt to attach a worksheet with a column of dates (column A). I'm not including any of the other data that are a part of the worksheet, as it shouldn't be necessary for the purposes of the example.

I am wanting a Macro that will run through the date column and insert a blank row between specified date ranges. I need this as I am trying to get a blank line at the end of a 28 day work cycle so I can calculate overtime versus straight time for law enforcement pay calculations.

I want a blank row inserted after 08/30/2009, 09/27/2009, 10/25/09, 11/22/2009, 12/20/2009 and 01/17/2010. You will note that these specific dates are not necessarily in the column of dates.

Thanks in advance for any help.

It is not a good looking code,but it does the job.

Sub insert_rows2()
    Dim i As Long, LR As Long
    LR = Cells(Rows.Count, "A").End(xlUp).Row
    If LR < 1 Then Exit Sub
    For i = LR To 1 Step -1
        If Cells(i, 1) = DateValue("08/30/2009") Or Cells(i, 1) = DateValue("09/27/2009") Or Cells(i, 1) = DateValue("10/25/09") _
        Or Cells(i, 1) = DateValue("11/22/2009") Or Cells(i, 1) = DateValue("12/20/2009") Then
            
            Rows(i).Insert xlShiftDown
        End If
    Next i
End Sub