Try this, 

 Dim blnStatus As Boolean = False 

Dim dgdRow As UltraGridRow 

For Each dgdRow In dgdLead.Rows
            If dgdRow.Cells(1).Value = 1 Then
                blnStatus = True
            End If
        Next