Need help tweaking macro

I have the following macro which automatically hides rows that contain blank cells within a given range of columns:

Sub DeleteBlankRows()
Dim lr As Long, i As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
For i = 4 To 26
    If Application.CountBlank(Cells(i, "B").Resize(1, 14)) = 14 Then
        Rows(i).EntireRow.Hidden = True
    Else
        Rows(i).EntireRow.Hidden = False
    End If
Next i
End Sub

How to I edit the macro to make it select every other row from B to O? I need a macro that only looks at B,D,F,H,J,L, and N and then a second macro which looks at C,E,G,I,K,M, and O.

Thanks so much!