Find Each First Of Month In Column Of Dates

I'm working on more code to take data from hotel reports, compile totals and transfer data to several other workbooks. In prior instances, I'd been working with data that had been converted from Adobe .pdf format, so while the cell values appeared to be dates, they actually were text. I'd come up with a solution to find the first of each month in a column of dates and insert a row at that point. However, I'm now working on this with a system that actually outputs in Excel format. As such, the date column is actually normal date serial value, rather than text and my code doesn't work. What can I do to modify this snippet of code to find the first of each month and insert a row when the values in the column are actual date serials?

Here's the current code:

With Sheets("Sheet1")
For RowToInsert = .UsedRange.Rows.Count To 14 Step -1
If (Range("A" & RowToInsert) Like "*/01/*") Then Rows(RowToInsert).EntireRow.Insert
If (Range("A" & RowToInsert) Like TodayVisualMatrix) Then
Rows(RowToInsert).EntireRow.Insert
Range("A" & RowToInsert).Value = "Subtotal"
End If
Next RowToInsert
End With

Row 3 doesn't find anything because while they appear in that format, the value of the cell isn't */01/*....