Para contar sequências de valores repetidos, há a função [`rle`](https://stat.ethz.ch/R-manual/R-devel/library/base/html/rle.html). Aplicando essa função a cada linha, tem-se as repetições de cada valor. Depois é ver quais correspondem a zeros e quantas dessas são maiores que 5.  

Nos dados da pergunta há uma sequência de zeros maiores que 5 nas 2ª e última linhas.

``` r
x<-'1   2   3   4   5   6   7   8
1   10  5   0   0   25  12  0
2   0   0   0   0   0   0   1
3   40  25  5   0   1   0   32
4   0   10  6   3   0   0   2
5   2   0   0   0   3   0   0
6   10  3   15  30  3   0   0
7   0   0   0   0   0   0   18'
dados <- read.table(textConnection(x), header = TRUE, check.names = FALSE)

r <- apply(dados, 1, rle)
sapply(r, \(x) sum(x$lengths[x$values == 0] > 5))
#> [1] 0 1 0 0 0 0 1
```

<sup>Created on 2022-08-18 by the [reprex package](https://reprex.tidyverse.org) (v2.0.1)</sup>

---

# Dados em formato `dput`

    dados <-
      structure(list(
        `1` = 1:7, 
        `2` = c(10L, 0L, 40L, 0L, 2L, 10L, 0L), 
        `3` = c(5L, 0L, 25L, 10L, 0L, 3L, 0L), 
        `4` = c(0L, 0L, 5L, 6L, 0L, 15L, 0L), 
        `5` = c(0L, 0L, 0L, 3L, 0L, 30L, 0L), 
        `6` = c(25L, 0L, 1L, 0L, 3L, 3L, 0L), 
        `7` = c(12L, 0L, 0L, 0L, 0L, 0L, 0L), 
        `8` = c(0L, 1L, 32L, 2L, 0L, 0L, 18L)), 
        class = "data.frame", row.names = c(NA, -7L))