For Each row As DataGridViewRow In grdItems.Rows

        Dim bool1 As Boolean
        Dim bool2 As Boolean
        Dim bool3 As Boolean
        Dim bool4 As Boolean
        Dim bool5 As Boolean

        bool1 = Boolean.Parse(row.Cells(4).Value.ToString)
        bool2 = Boolean.Parse(row.Cells(5).Value.ToString)
        bool3 = Boolean.Parse(row.Cells(6).Value.ToString)
        bool4 = Boolean.Parse(row.Cells(7).Value.ToString)
        bool5 = Boolean.Parse(row.Cells(8).Value.ToString)
        ...
Next