Deleting Sets of Rows in huge table

declare @Cnt int
Select @cnt = (select Count(*) from authorstest nolock)
print @cnt
declare @rset int
declare @stper int
/*
Lets divide the total deleted rows into chinks of three or four called segments
We will intialise the Segments here and then loop through them and
 issue checkpoint after every segment
*/select @stper = ABS(@cnt) % 2 
if  @stper = 1 
Begin 
select @rset = (@cnt + 1 )/4
        select @cnt = @cnt + 1 
print @rset
End
Else
       Begin 
        select @rset = (@cnt)/4
       End

select @stper = (@cnt/@rset)
print @stper
--Check the segment length and increase it or  decrease it based on your requirement
Print 'Printing innerloop here'
While ( @rset > 0 )
BEgin
print @rset
Select @rset = @rset - 1

SET ROWCOUNT @rset
delete from authorstest
checkpoint
print 'Checkpoint issued'   
SET ROWCOUNT 0
print @rset
END